home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / keycod1a / frmcodes.frm next >
Text File  |  1999-10-08  |  3KB  |  124 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CheckBox Check1 
  13.       Caption         =   "Grab code from next key pushed"
  14.       Height          =   615
  15.       Left            =   2640
  16.       TabIndex        =   2
  17.       Top             =   960
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command2 
  21.       Caption         =   "Save Codes"
  22.       Height          =   495
  23.       Left            =   2640
  24.       TabIndex        =   4
  25.       Top             =   480
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "Add Code"
  30.       Height          =   495
  31.       Left            =   2640
  32.       TabIndex        =   3
  33.       Top             =   0
  34.       Width           =   1215
  35.    End
  36.    Begin VB.ListBox List2 
  37.       Height          =   2790
  38.       ItemData        =   "FrmCodes.frx":0000
  39.       Left            =   1320
  40.       List            =   "FrmCodes.frx":0002
  41.       TabIndex        =   5
  42.       TabStop         =   0   'False
  43.       Top             =   360
  44.       Width           =   1215
  45.    End
  46.    Begin VB.ListBox List1 
  47.       Height          =   2790
  48.       ItemData        =   "FrmCodes.frx":0004
  49.       Left            =   0
  50.       List            =   "FrmCodes.frx":0006
  51.       TabIndex        =   6
  52.       TabStop         =   0   'False
  53.       Top             =   360
  54.       Width           =   1215
  55.    End
  56.    Begin VB.TextBox Text1 
  57.       Height          =   285
  58.       Left            =   0
  59.       TabIndex        =   1
  60.       Top             =   0
  61.       Width           =   1215
  62.    End
  63.    Begin VB.Label Label1 
  64.       Height          =   255
  65.       Left            =   1320
  66.       TabIndex        =   0
  67.       Top             =   0
  68.       Width           =   1215
  69.    End
  70. End
  71. Attribute VB_Name = "Form1"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Private Sub Check1_Click()
  77.  
  78. Text1.SetFocus
  79.  
  80. End Sub
  81.  
  82. Private Sub Command1_Click()
  83.  
  84. If Label1.Caption = "" Then Exit Sub
  85.  
  86. List1.AddItem Text1.Text
  87. List2.AddItem Label1.Caption
  88.  
  89. Text1.Text = ""
  90. Label1.Caption = ""
  91.  
  92. Check1.Value = 0
  93.  
  94. Text1.SetFocus
  95.  
  96. End Sub
  97.  
  98. Private Sub Command2_Click()
  99.  
  100. Open "c:\windows\desktop\codes.txt" For Output As #1
  101.  
  102. For x = 0 To List1.ListCount - 1
  103.     Print #1, List1.List(x) & ":     " & List2.List(x)
  104. Next
  105.  
  106. Close
  107.  
  108. End Sub
  109.  
  110. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  111.  
  112. If Check1.Value = 1 Then
  113.     Label1.Caption = KeyCode
  114.     Command1.SetFocus
  115. End If
  116.  
  117. End Sub
  118.  
  119. Private Sub Text1_KeyPress(KeyAscii As Integer)
  120.  
  121. If Check1.Value = 1 Then KeyAscii = 0
  122.  
  123. End Sub
  124.